<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.0a</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>3008</cardID>
<listID>3722</listID>
<cantModify><false /></cantModify>
<cantDelete><true /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>416</width>
<height>240</height>
</cardSize>
<script>∞∞∞∞ Script info for "HyperGobbledygook 1.0a", STACK ∞∞∞∞HANDLERS:-- arpeggio, close, closestack, doBatchStats, doClearBatch,-- doExport, doMenu, doPrintBatch, getMenu, hideBatch, hideHelp,-- hideInfo, loadGlobals, loseMenu, makeAnEntrance, makeAnExit,-- mousedowninpicture, openstack, resumestack, sayByeBye,-- SetAble, showBatch, showHelp, suspendstack, toggleAboutWindow,-- toggleAccumulate, toggleBatch, toggleHelp, toggleHyperMenus,-- toggleMenus, unloadGlobals, watchFUNCTIONS:-- deleteWarning, goodbye1, goodbye2, kwote, lastPath, myItems,-- myMsg, numberOfItems, theAdjectives, theAdverbs,-- theBatchStats, theFileHeader, theNouns, theNouns2,-- thePrepositions1, thePrepositions2, theVerbsSTATS: 14200 chars, 478 lines, 11/23/91, 10:07 PM∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞XCMD: Randomize, developed by Christopher Miller, Copyright 1989 Philosopht™on openstackwatchlock screenmakeAnEntranceunlock screen with dissolve fasttoggleHyperMenus falsegetMenuloadGlobalsend openstackon resumestackwatchgetMenutoggleHyperMenus falseend resumestackon closestackwatchtoggleAboutWindow falselock screenmakeAnExitunlock screen with dissolve fastif random(3000)<600then sayByeByeloseMenutoggleHyperMenus trueunloadGlobalsdocompactend closestackon suspendstackwatchtoggleAboutWindow falseloseMenutoggleHyperMenus trueend suspendstackon doMenu huhif "About" is in huhthen toggleAboutWindowelse if huh="Find..." thenshowBatchsend "domenu Find..." to hypercardelsetoggleAboutWindow falsepass domenuend ifend doMenu---- Menu handlers ----on getMenuif (there is no menu "Jargon") then create menu "Jargon"put myItems() into menu "Jargon" with menumsg myMsg()set checkmark of menuitem "Accumulate" of menu "Jargon" to truetoggleMenus cd fld "Batch" is not emptyput "About HyperGobbledygook..." into menuitem 1 of menu 1end getMenufunction myItemsreturn "Help,-,Show Batch,Clear Batch,Batch Stats,-,Accumulate,New Batch…,Print Batch,Export…,-,Sound"end myItemsfunction myMsgreturn "toggleHelp,,toggleBatch,doClearBatch,doBatchStats,,toggleAccumulate,doNewBatch,doPrintBatch,doExport,,toggleSound"end myMsgon loseMenuif (there is a menu "Jargon") then delete menu "Jargon"put "About HyperCard..." into menuitem 1 of menu 1setAble "Find...","Go",trueend loseMenu---- Menu messages ----on toggleHelpwatchif visible of cd fld "Help"then hideHelpelse showHelpend toggleHelpon hideHelplock screenset scroll of cd fld "Help" to 0hide cd fld "Help"set name of menuitem 1 of menu "Jargon" to "Help"unlock screen with iris close fastend hideHelpon showHelplock screentoggleAboutWindow falsehide cd fld "Info"show cd fld "Help"set name of menuitem 1 of menu "Jargon" to "Hide Help"unlock screen with iris open fastend showHelpon hideInfolock screenhide cd fld "Info"unlock screen with iris close fastend hideInfo----on doBatchStatswatchget theBatchStats()if visible of cd fld "Batch"then answer it with "Hide Batch" or "OK"else answer it with "Show Batch" or "OK"if it is "Hide Batch" then hideBatchif it is "Show Batch" then showBatchend doBatchStatsfunction theBatchStatsput length(cd fld "Batch") into theBytesget numberOfItems()if it=1then get it &&"entry is stored."&return&returnelse get it &&"entries are stored."&return&returnif theBytes≥300then get it & round(thebytes/295)&"% of the available storage is used."&return&returnput (29500-theBytes) div 55 into entriesLeftif entriesLeft>0then get it & "There's room for about"&&entriesLeft&& "more entries."else get it & "There's no more room. Save or print this batch, and clear it."return itend theBatchStats----on togglesoundset the checkmark of menuitem "Sound" of menu "Jargon"¬to not the checkmark of menuitem "Sound" of menu "Jargon"end togglesoundon toggleBatchwatchif visible of cd fld "Batch"then hideBatchelse showBatchend toggleBatchon hideBatchlock screenhide cd fld "Batch"set name of menuitem 3 of menu "Jargon" to "Show Batch"unlock screen with iris close fastend hideBatchon showBatchlock screentoggleAboutWindow falsehide cd fld "Info"if visible of cd fld "Help" then hideHelpshow cd fld "Batch"set name of menuitem 3 of menu "Jargon" to "Hide Batch"unlock screen with iris open fastend showBatch----on doClearBatchif not visible of cd fld "Batch" thenshowBatchwait 45end ifanswer deleteWarning(numberOfItems()) with "Delete" or "Cancel"if it="Cancel" then exit doClearBatchput "" into cd fld "Batch"toggleMenus falsehideBatchdoCompactend doClearBatchfunction deleteWarning theItemsif theItems=1then return "Delete"&&theItems&&"line of gobbledygook?"else return "Delete all"&&theItems&&"lines of gobbledygook?"end deleteWarningon toggleAccumulateset checkmark of menuitem "Accumulate" of menu "Jargon"¬to not checkmark of menuitem "Accumulate" of menu "Jargon"end toggleAccumulateon doPrintBatchopen report printing with template "Basic"print all cdsclose printingend doPrintBatch----on doExportwatchget "Jargon."&item 1 of the long date&"."&last word of the short timeask file "Export to TEXT file:" with itif the result is "Cancel" or it = "" then exit doExportopen file itwatchwrite theFileHeader()&cd fld "Batch" to file itclose file itarpeggioanswer numberOfItems()&&¬"items written to file:"&return&return&"“"&lastpath(it)&"”"end doExportfunction theFileHeaderget the short name of this stack&","&&the long date&","&&the short timeget it&return&"____________________________________________________________"return it &return &returnend theFileHeader----on toggleHyperMenus booleanlock screenif boolean then reset menubar elseput "Style,Font,Objects,Tools,Edit" into theMenusrepeat with x=1 to 5get item x of theMenusif there is a menu it then delete menu itend repeatsetAble "First","Go",booleansetAble "Last","Go",booleansetAble "Prev","Go",booleansetAble "Next","Go",booleansetAble "Scroll","Go",booleanend ifunlock screenend toggleHyperMenuson toggleMenus booleanget "Jargon"setAble 3,it,booleansetAble 4,it,booleansetAble 5,it,booleansetAble 7,it,booleansetAble 9,it,booleansetAble 10,it,booleansetAble "Find...","Go",booleanend toggleMenuson toggleAboutWindow booleanput (there is a window "About2") into itsThereif (boolean is not a logical)thenif itsTherethen put not visible of window "About2" into booleanelse put true into booleanend ifif boolean thenpicture "about2",resource,rect,falseset loc of window "about2" to "8,8"hidebatchhidehelpflashrect rect of cd fld id 19,30zoomrect rect of cd fld id 19,rect of window "about2"show window "about2"put "Make picture go away" into menuitem 1 of menu 1elseif itsTherethenput rect of window "about2" into theRectclose window "about2"zoomrect theRect,rect of cd fld id 19flashrect rect of cd fld id 19,30put "About HyperGobbledygook..." into menuitem 1 of menu 1end ifend ifend toggleAboutWindow---- Utility handlers ----on loadGlobalsglobal listVerbs,listAdverbs,listAdjectives,listNouns,listNouns2global listPrepositions1,listPrepositions2put theVerbs() into listVerbsput theAdverbs() into listAdverbsput theAdjectives() into listAdjectivesput theNouns() into listNounsput theNouns2() into listNouns2put thePrepositions1() into listPrepositions1put thePrepositions2() into listPrepositions2end loadGlobalson unloadGlobalsglobal listVerbs,listAdverbs,listAdjectives,listNouns,listNouns2,itsPluralglobal listPrepositions1,listPrepositions2put "" into listVerbsput "" into listadVerbsput "" into listAdjectivesput "" into listNounsput "" into listNouns2put "" into listPrepositions1put "" into listPrepositions2put "" into itsPluralend unloadGlobalson makeAnEntranceshow cd pictshow cd btn "JARGON"show cd btn "INFO"show cd fld "JARGON ARROWS"show cd fld "INFO ARROWS"end makeAnEntranceon makeAnExithide cd picthide cd btn "JARGON"hide cd btn "INFO"hide cd fld "JARGON ARROWS"hide cd fld "INFO ARROWS"hide cd fld "INFO"hide cd fld "HELP"hide cd fld "BATCH"end makeAnExiton SetAbleset enabled of menuitem param(1) of menu param(2) to param(3)end setAbleon mousedowninpicturetoggleAboutWindowend mousedowninpictureon close huhif huh="stack" thenanswer "Do you want to close the stack?" with "OK" or "Cancel"if it="Cancel" thenexit closeend ifelse pass closeend closeon docompactif freesize of this stack >8000then answer "I need to be compacted. Take whatever action you feel appropriate."¬with "Cancel" or "Compact"if it is "Compact" then domenu "Compact Stack"end docompactfunction numberOfItemsreturn (the number of lines in cd fld "Batch")/2end numberOfItemsfunction lastPath longpathrepeat until it=0get offset(":",longpath)delete char 1 to it of longpathend repeatreturn longpathend lastPathon arpeggioif the checkmark of menuitem "Sound" of menu "Jargon" then play arpeggioend arpeggiofunction kwote theStringreturn quote&theString"eend kwoteon watchset cursor to "hg3"end watch----on sayByeByelock screenput any item of goodbye1()&","&&any item of goodbye2() into cd fld "Bye"unlock screen with dissolve fastwait 10repeat 3set textstyle of cd fld "Bye" to outline,italicset textstyle of cd fld "Bye" to outlineend repeatwait 10lock screenput "" into cd fld "Bye"unlock screen with dissolve fastend sayByeByefunction goodbye1return "So long,Au revoir,Bye-Bye,Auf Wiedersehen,Adieu,Aloha,Ciao,"¬&"Bon Voyage,Farewell,Ta-Ta,Arrivaderci,Cheerio,Buenos noces"end goodbye1function goodbye2return "Compadre,Amigo,Mon ami,Kimo Sabe,Friend,Pal,Chum,Tovarisch"end goodbye2---- Text functions ----function theVerbsreturn "PRIORITIZE,IMPLEMENT,RATCHET UP,RATCHET DOWN,SYNTHESIZE,UPGRADE,"¬&"PROMOTE,INITIATE,DOWNSIZE,DETERMINE,EVALUATE,COORDINATE,FORMALIZE,"¬&"SYSTEMATIZE,FINALIZE,REINFORCE,EMPOWER,DEFINE,SITUATE,IMPACT,ACHIEVE,"¬&"INVOKE,FOCUS ON,REFERENCE,HIGHLIGHT,ACTUATE,APPREHEND,ADOPT,BACKTRACK ON,"¬&"SUMMARIZE,RESOLVE,FORMULATE,RESPOND TO,EXERCISE,INTERFACE WITH,REITERATE,"¬&"INTERACT WITH,SUPPLEMENT,DEVELOP,OPERATIONALIZE,DOCUMENT,VOICE,REAFFIRM,"¬&"PRE-SELECT,EXTRAPOLATE,CONSOLIDATE,FACILITATE,MAXIMIZE,REALIZE,INTEGRATE,"¬&"CULTIVATE,PROFESS,ACCELERATE,MONITOR,PROMULGATE,PORTRAY,PROPEL,EMPLOY,"¬&"PRAGMATIZE,POSTULATE,ARTICULATE,OPTIMIZE,PROPAGATE,PROJECT,SUBSUME,"¬&"UTILIZE,DEVISE,SPEARHEAD,DOWNPLAY,SUPPRESS,DEPLOY,PRE-POSITION,MOBILIZE,"¬&"DECONSTRUCT,EXECUTE"end theVerbsfunction theAdverbsreturn "VERY,TRULY,THOROUGHLY,PARTIALLY,EXTREMELY,ENTIRELY,COMPLETELY,"¬&"UNIQUELY,RELIABLY,UNSTINTINGLY,ESSENTIALLY,NON-NEGOTIABLY,BASICALLY,"¬&"PRIMARILY,FUNDAMENTALLY,EXCLUSIVELY,DIFFERENTLY,LESS,MORE,INTENSIVELY,"¬&"FAVORABLY,PROPITIOUSLY,OMINOUSLY,TRENCHANTLY,HOPEFULLY,SOMEWHAT,"¬&"SURPRISINGLY,ADVERSELY,ARGUABLY"end theAdverbsfunction theAdjectivesreturn "PRO-ACTIVE,FLEXIBLE,PRODUCT-SPECIFIC,MULTI-LATERAL,PRE-EMPTIVE,"¬&"VALUE-NEUTRAL,DIVERSIFIED,LABOR-INTENSIVE,FULL-FEATURED,BALANCED,"¬&"POSITIVE,AFFIRMATIVE,ONGOING,INNOVATIVE,COMPREHENSIVE,DYNAMIC,UNFOLDING,"¬&"INTERPERSONAL,INTERCULTURAL,PRIOR,STREAMLINED,SITUATIONAL,NONVERBAL,"¬&"ORGANIZATIONAL,CURRENT,PRACTICAL,KEY,CUMULATIVE,NEGATIVE,DECISIVE,"¬&"AD-HOC,MEASURED,PEDAGOGICAL,INTRAMURAL,TENTATIVE,DAILY,BI-WEEKLY,UNIQUE,"¬&"DEVELOPMENTAL,INCREMENTAL,PRO-FORMA,RANDOMIZED,CATEGORICAL,PRO-SOCIAL,"¬&"PROGRAMMABLE,CONTRIBUTORY,PROFESSIONAL,POTENTIAL,UNQUALIFIED,MANAGERIAL,"¬&"PRIORITIZED,MULTI-DIMENSIONED,AMBIENT,GOAL-ORIENTED,CONDITIONAL,"¬&"PRE-APPROVED,SEQUENTIAL,PRINCIPAL,SALIENT,UNCONDITIONAL,GENDER-NEUTRAL,"¬&"EXTRAFAMILIAL,VIGOROUS,SELF-ACTUATED,NONJUDGMENTAL,STRUCTURED,SIGNIFICANT,"¬&"AUTHORITATIVE,CHILD-CENTERED,INTERDEPENDENT,PERCEPTUAL,INDIVIDUALIZED,"¬&"POLYGLOT,HOMOGENEOUS,HETEROGENEOUS,RECIPROCAL,NONESSENTIAL,COMMUNAL,"¬&"EXEMPLARY,PROPHYLACTIC,PERTINENT,POLARIZED,INTERMITTENT,NON-VOLUNTARY,"¬&"NON-COMBATIVE,NON-HOSTILE,SOLUTION-DIRECTED,RESPONSIVE,COMPATIBLE,"¬&"MEANINGFUL,EXTENDED,RELEVANT,PROLIFERATING,PRE-TESTED,OBJECTIFIED,"¬&"UNQUALIFIED,UNQUANTIFIED,NONPREJUDICIAL,VIABLE,CROSS-MARKETED,MODULAR,"¬&"SERENDIPITOUS,ADMINISTRATIVE,SCENARIO-DEPENDENT,NON-LINEAR,COGENT"end theAdjectivesfunction theNounsreturn "SEQUESTRATION,REVENUE ENHANCEMENT,DOWNTURN,DOWNSIDE,FUNCTIONALITY,"¬&"DIALOGUE,INCURSION,RETRENCHMENT,CAREER RENEWAL,LEADERSHIP,CLIENTELE,"¬&"SYSTEM,COMPETENCY,APPLICATION,DEVELOPMENT,COMMUNICATION,INCENTIVE,"¬&"POLICY,FEEDBACK,DESIGN,SKILL,APPREHENSION,UNCERTAINTY,PREVIEW,CONTEXT,"¬&"READING,REDUCTION,DECISION,PREPARATION,IMPLEMENTATION,CONSOLIDATION,"¬&"INTERACTION,NEGOTIATION,RESPONSE,CAUSALITY,COGNITION,INVENTORY,DISABILITY,"¬&"INSTRUMENTALITY,CULTURE,GUIDANCE,INVOLVEMENT,INTERLOCUTOR,CONTINGENCY,"¬&"POTENCY,PROPULSION,OPTIMIZATION,MOBILIZATION,RELATIONSHIP,CURRICULUM,"¬&"POSTULATION,THESIS,COMMITTMENT,REASSESSMENT,UTILIZATION,SLOWDOWN,CLICHÉ,"¬&"SELF-DETERMINATION,EVALUATION,ACCOUNTABILITY,MATURATION,INSERTION,"¬&"PACIFICATION,PROBABILITY,PROTOTYPE,FACILITY,LINKAGE,PROGRAM,CESSATION,"¬&"REIMBURSEMENT,COMPENSATION,INTERDICTION"end theNounsfunction theNouns2return "ENVIRONMENT,SITUATION,BEHAVIOR,FACTOR,SOLUTION,SCENARIO,FORMULA,"¬&"INITIATIVE,SEQUENCE,EVENT,INTERFACE,ASPECT,ACTION,ATTITUDE,MOMENTUM,"¬&"DETERMINATION,,PLAN,THEORY,HYPOTHESIS,DEPICTION,LISTING,HABITAT,STATUS,"¬&"CONCEPT,UNIT,EXERCISE,PERCEPTION,SUMMARY,ACCOMPLISHMENT,IMPLICATION,"¬&"GOAL,DISCLOSURE,FORMAT,PRINCIPLE,RESOURCE,IMPACT,ROLE,IMPERATIVE,STANCE,"¬&"STATEMENT,SUPPLEMENT,OUTCOME,DIFFERENTIAL,CONTENT,IMPEDIMENT,JARGON,"¬&"REVIEW,CRITERION,LANDSCAPE,PERSPECTIVE,DIMENSION,DOCUMENT,AMBIENCE,NODE,"¬&"PROCEDURE,TECHNOLOGY,STRATEGY,TEXT,CONSIDERATION,PORTRAYAL,ADJUSTMENT,"¬&"ARTICULATION,ACTIVITY,APPROACH,OBJECTIVE,PROJECTION,TRANSITION,DECLINE,"¬&"PROPOSITION,PROCLIVITY,PROTOCOL,PARADIGM,CAPACITY,OPTION,PROSPECT,"¬&"DOWNTICK,PROGNOSTICATION,SUBMISSION,DEPLOYMENT,DEPLETION,ALLOWANCE,"¬&"PROFILE,OPPORTUNITY,NOMENCLATURE,CAMPAIGN,REGIME"end theNouns2function thePrepositions1return "IN THE WAKE OF,IRREGARDLESS OF,IN ACCORDANCE WITH,WITH REGARD TO,"¬&"DESPITE,PENDING,SUBSEQUENT TO,DUE TO,BECAUSE OF,WITH AN EYE TOWARD,"¬&"NOTWITHSTANDING,DEPENDING ON,AFTER,BEFORE,PRIOR TO,GEARED TOWARD,"¬&"FOLLOWING"end thePrepositions1function thePrepositions2return "IN SENSE,IN CAPACITY,IN FASHION,ON BASIS,ON TIMETABLE,"¬&"TOWARD END,FOR PURPOSE,IN MANNER,FROM STANDPOINT"end thePrepositions2----</script>
